home *** CD-ROM | disk | FTP | other *** search
- /* Install script for ANSWER.EXE */
- call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
- call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
-
- currentDirectory = directory()
- programName = "\ANSWER.EXE"
- programPath = insert( currentDirectory, programName )
- parameters = insert( "EXENAME=", programPath )
-
- rc = SysCreateObject("WPProgram","Answering Machine","<WP_DESKTOP>",,
- parameters, "REPLACE" )
-
- md IN
- md OUT
- md SAVED
- move greeting.msg out
- view answer.inf
-
- say ""
- say ""
- say "If you want to take full advantage of the program, open the"
- say "settings of the 'Answering Machine' program object, turn to"
- say "the 'Window' page of the 'Settings Notebook' and put the"
- say "'Minimized button behaviour' to 'Minimize window to desktop'."
- say "When a message comes in you can see the icon flash."
- say ""
- say ""
- say " Start the Answering Machine by double clicking on the icon "
- say " on the OS/2 desktop. "
- say ""
- say "*****************************************************************"
- say "* This program is distributed as Shareware! You MUST register *"
- say "* this product if you continue to use it. Please see the *"
- say "* documentation for the complete details. *"
- say "*****************************************************************"